home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aaq.d64 / g.dat < prev    next >
Text File  |  2007-02-28  |  2KB  |  124 lines
  1. 8000 FOR J:=1 TO 4 DO //G1
  2. 8010  PENUP 
  3. 8020  FORWARD 2
  4. 8030  PENDOWN 
  5. 8040  FORWARD 24
  6. 8050  PENUP 
  7. 8060  BACK 26
  8. 8070  LEFT 90
  9. 8080  FORWARD 1
  10. 8090  RIGHT 90
  11. 8100 ENDFOR J
  12. 8110 //
  13. 8120 FOR J:=1 TO 2 DO //2
  14. 8130  PENDOWN 
  15. 8140  FORWARD 28
  16. 8150  PENUP 
  17. 8160  BACK 28
  18. 8170  LEFT 90
  19. 8180  FORWARD 1
  20. 8190  RIGHT 90
  21. 8200 ENDFOR J
  22. 8210 //
  23. 8220 FOR J:=1 TO 6 DO //3
  24. 8230  PENDOWN 
  25. 8240  FORWARD 11
  26. 8250  PENUP 
  27. 8260  FORWARD 11
  28. 8270  PENDOWN 
  29. 8280  FORWARD 6
  30. 8290  PENUP 
  31. 8300  BACK 28
  32. 8310  LEFT 90
  33. 8320  FORWARD 1
  34. 8330  RIGHT 90
  35. 8340 ENDFOR J
  36. 8350 //
  37. 8360 FOR J:=1 TO 2 DO //4
  38. 8370  PENDOWN 
  39. 8380  FORWARD 11
  40. 8390  PENUP 
  41. 8400  FORWARD 7
  42. 8410  PENDOWN 
  43. 8420  FORWARD 10
  44. 8430  PENUP 
  45. 8440  BACK 28
  46. 8450  LEFT 90
  47. 8460  FORWARD 1
  48. 8470  RIGHT 90
  49. 8480 ENDFOR J
  50. 8490 //
  51. 8500 FOR J:=1 TO 10 DO //5
  52. 8510  PENDOWN 
  53. 8520  FORWARD 11
  54. 8530  PENUP 
  55. 8540  BACK 11
  56. 8550  LEFT 90
  57. 8560  FORWARD 1
  58. 8570  RIGHT 90
  59. 8580 ENDFOR J
  60. 8590 //
  61. 8600 FOR J:=1 TO 6 DO //6
  62. 8610  PENUP 
  63. 8620  FORWARD 2
  64. 8630  PENDOWN 
  65. 8640  FORWARD 9
  66. 8650  PENUP 
  67. 8660  BACK 11
  68. 8670  LEFT 90
  69. 8680  FORWARD 1
  70. 8690  RIGHT 90
  71. 8700 ENDFOR J
  72. 8710 //
  73. 8720 FOR J:=1 TO 2 DO //7
  74. 8730  PENUP 
  75. 8740  FORWARD 2
  76. 8750  PENDOWN 
  77. 8760  FORWARD 9
  78. 8770  PENUP 
  79. 8780  FORWARD 11
  80. 8790  PENDOWN 
  81. 8800  FORWARD 6
  82. 8810  PENUP 
  83. 8820  BACK 28
  84. 8830  LEFT 90
  85. 8840  FORWARD 1
  86. 8850  RIGHT 90
  87. 8860 ENDFOR J
  88. 8870 //
  89. 8880 FOR J:=1 TO 2 DO //8
  90. 8890  PENUP 
  91. 8900  FORWARD 2
  92. 8910  PENDOWN 
  93. 8920  FORWARD 26
  94. 8930  PENUP 
  95. 8940  BACK 28
  96. 8950  LEFT 90
  97. 8960  FORWARD 1
  98. 8970  RIGHT 90
  99. 8980 ENDFOR J
  100. 8990 //
  101. 9000 FOR J:=1 TO 4 DO //9
  102. 9010  PENUP 
  103. 9020  FORWARD 4
  104. 9030  PENDOWN 
  105. 9040  FORWARD 22
  106. 9050  PENUP 
  107. 9060  BACK 26
  108. 9070  LEFT 90
  109. 9080  FORWARD 1
  110. 9090  RIGHT 90
  111. 9100 ENDFOR J
  112. 9110 //
  113. 9120 FOR J:=1 TO 2 DO //10
  114. 9130  PENUP 
  115. 9140  FORWARD 12
  116. 9150  PENDOWN 
  117. 9160  FORWARD 6
  118. 9170  PENUP 
  119. 9180  BACK 18
  120. 9190  LEFT 90
  121. 9200  FORWARD 1
  122. 9210  RIGHT 90
  123. 9220 ENDFOR J
  124.